<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_datruth_cms_STRING MM_datruth_cms_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\hosting\uplift05\access_db\datruth_cms.mdb;User Id=admin;Password=" %> <% Dim news_details__MMColParam news_details__MMColParam = "1" If (Request.QueryString("id") <> "") Then news_details__MMColParam = Request.QueryString("id") End If %> <% Dim news_details Dim news_details_numRows Set news_details = Server.CreateObject("ADODB.Recordset") news_details.ActiveConnection = MM_datruth_cms_STRING news_details.Source = "SELECT * FROM news WHERE id = " + Replace(news_details__MMColParam, "'", "''") + "" news_details.CursorType = 0 news_details.CursorLocation = 2 news_details.LockType = 1 news_details.Open() news_details_numRows = 0 %> Untitled Document

<%=(news_details.Fields.Item("title").Value)%>
<%=(news_details.Fields.Item("date").Value)%>
Author: <%=(news_details.Fields.Item("author").Value)%>  |  .pdf" target="_blank" class="style16">Download Article

.jpg" hspace="5" vspace="3" align="left"><%=(news_details.Fields.Item("article").Value)%>

 

<% news_details.Close() Set news_details = Nothing %>